home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00085_Script_SCRIPT_MENU_EQUERRE_BLEUE < prev    next >
Text File  |  2002-09-19  |  1KB  |  58 lines
  1. -- scripts menu Θquerre bleue
  2.  
  3. global validMBG,rollMessBG,menuMsg,fermeMenuBG, menuFermeBG,pisteMenuBG,menuOuvert, gFlag_hideWindows
  4. -- validMBG : liste donnant les items du menu sΘlectionnables
  5. -- rollMessBG : indique sur quel item du menu a lieu le rollOver
  6. -- menuMsg : message renvoyΘ par le menu α sa fermeture
  7.  
  8. -- la souris quitte le menu
  9. on mouseLeave
  10.   if menuMsg<>empty then
  11.     masqueMenu
  12.  
  13.   end if
  14.   masqueMenu
  15. end mouseLeave
  16.  
  17. -- clic dans menu
  18. on mouseUp
  19.   if rollMessBG <> "nul" then
  20.     menuMsg = rollMessBG
  21.     masqueMenu
  22.   else
  23.     menuMsg = empty
  24.   end if
  25.   if voidP(menuMsg)<>1 then
  26.     gestMenus
  27.   end if
  28.   menuMsg = empty
  29. end mouseUp
  30.  
  31. -- dissimulation menu
  32. on masqueMenu
  33.   show_zevideo
  34.   if gFlag_hideWindows  = 2 then resume_window()
  35.   cursor -1
  36.   fermeMenuBG=1
  37.   repeat while menuFermeBG<>1
  38.     temporise(0.01)
  39.     updateStage
  40.   end repeat
  41.   put "    Fermeture Θquerre bleue"
  42.   masquerPistes the currentSpriteNum
  43.   sprite(pisteMenuBG).memberNum = member("pointPourGlisserSur").number
  44.   menuouvert = 0
  45. end masqueMenu
  46.  
  47. -- repΘrage de la piste du menu Θquerre bleue
  48. on beginSprite
  49.   pisteMenuBG = the currentSpriteNum
  50.   masquerPistes pisteMenuBG
  51. end
  52.  
  53. -- fermeture du menu si restΘ ouvert
  54. on exitFrame
  55.   if menuFermeBG=1 and menuOuvert="BG" then
  56.     masqueMenu
  57.   end if
  58. end